home *** CD-ROM | disk | FTP | other *** search
/ A Million Times Begging / A Million Times Begging - Disc 1.iso / pc / data / movie.dir / 00007.ls < prev    next >
Encoding:
Text File  |  1998-05-07  |  895 b   |  40 lines
  1. on mouseDown
  2.   puppetSound("click")
  3.   updateStage()
  4. end
  5.  
  6. on mouseUp
  7.   global mnum, md, fam
  8.   if md = 0 then
  9.     set mnum to the clickOn - 17
  10.     zoomBox(the clickOn, 12, 1)
  11.     zoomBox(the clickOn, 13, 1)
  12.     if fam = 1 then
  13.       zoomBox(the clickOn, 14, 1)
  14.     end if
  15.     if (fam = 2) and (mnum = 2) then
  16.       zoomBox(the clickOn, 14, 1)
  17.     end if
  18.     if (fam = 3) and (mnum = 2) then
  19.       zoomBox(the clickOn, 14, 1)
  20.     end if
  21.     mpre()
  22.     repeat with i = 11 to 13
  23.       set the visible of sprite i to 1
  24.     end repeat
  25.     if (mnum = 1) and (fam = 1) then
  26.       set the visible of sprite 14 to 1
  27.     end if
  28.     if (mnum = 1) and (fam = 2) then
  29.       set the visible of sprite 14 to 0
  30.     end if
  31.     if (mnum = 1) and (fam = 3) then
  32.       set the visible of sprite 14 to 0
  33.     end if
  34.     if mnum = 2 then
  35.       set the visible of sprite 14 to 1
  36.     end if
  37.     updateStage()
  38.   end if
  39. end
  40.